(nntp-request-group): Allow for failures when requesting a new group.

diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el
index 0812be9917de86b11e53c93583162550edc58152..f92166ad21448009654da96aa3ecf2c91d052ecb 100644 (file)
--- a/lisp/gnus/nntp.el
+++ b/lisp/gnus/nntp.el
@@ -603,7 +603,7 @@ server there that you can connect to.  See also `nntp-open-connection-function'"
 
 (deffoo nntp-request-group (group &optional server dont-check)
   (nntp-possibly-change-group nil server)
-  (when (nntp-send-command "^2.*\n" "GROUP" group)
+  (when (nntp-send-command "^[245].*\n" "GROUP" group)
     (let ((entry (nntp-find-connection-entry nntp-server-buffer)))
       (setcar (cddr entry) group))))